home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Readers / GUICopyNewIcon / GUICopyNewIcon.rexx < prev    next >
OS/2 REXX Batch file  |  1997-09-23  |  6KB  |  201 lines
  1. /*********************j**** [ Auto-Rexx Head 1.0 ] **************************
  2. **
  3. ** GUICopyNewIcon.rexx
  4. **
  5. ** Copyright ©1997 Robert Dale, X-Team Developments
  6. **
  7. ** $VER: 1.00 GUICopyNewIcon (23-Sep-1997)
  8. **
  9. ************************** [ ©1997 Robert Dale ] ***************************/
  10.  
  11. SIGNAL ON ERROR
  12. SIGNAL ON SYNTAX
  13.  
  14. IF ~SHOW('L','tritonrexx.library') THEN DO
  15.    IF ~ADDLIB('tritonrexx.library',10,-30,0) THEN DO
  16.       SAY 'Cannot Open tritonrexx.library!'
  17.       EXIT
  18.    END
  19. END
  20.  
  21. OldIconName = ''
  22. NewIconName = ''
  23.  
  24. tag1 = WindowID(1),
  25.        WindowTitle('GUICopyNewIcons v1.00'),
  26.          'VertGroupAC',
  27.          'Space',
  28.           NamedSeparator(' GUICopyNewIcons v1.00 ©1997 Robert Dale '),
  29.          'HorizGroupAC', 'VertGroupAC',
  30.                          'Space',
  31.                          'Space',
  32.                           NamedSeparator(' New Icon '),
  33.                          'Space',
  34.                          'Space',
  35.                           DropBox(2),
  36.                          'Space',
  37.                           StringGadget('',3),
  38.                          'Space',
  39.                          'Space',
  40.                          'EndGroup', 'Space', 'VertGroupAC',
  41.                                               'Space',
  42.                                               'Space',
  43.                                                NamedSeparator(' Old Icon '),
  44.                                               'Space',
  45.                                               'Space',
  46.                                                DropBox(4),
  47.                                               'Space',
  48.                                                StringGadget('',5),
  49.                                               'Space',
  50.                                               'Space',
  51.                                               'EndGroup',
  52.          'EndGroup',
  53.           Button('_Copy New Icon',6),
  54.          'Space',
  55.          'EndGroup',
  56.        'EndProject'
  57.  
  58.  
  59. /* Open application */
  60. launch = TR_CREATEAPP('TRCA_Name GUICNI')
  61. launched = 1
  62.  
  63. IF launch ~= '00000000'x THEN DO
  64.  
  65.    /* Open window */
  66.    window = TR_OPENPROJECT(launch,tag1)
  67.    windowOpen = 1
  68.  
  69.    IF window ~= '00000000'x THEN DO
  70.  
  71.       finish = 0
  72.  
  73.       DO WHILE finish ~= 1
  74.  
  75.          /* Wait for user input */
  76.          CALL TR_WAIT(launch,'')
  77.  
  78.          /* Handle input */
  79.          DO WHILE TR_HANDLEMSG(launch,'prog')
  80.  
  81.             /* String gadget selected */
  82.             IF prog.trm_class = 'TRMS_NEWVALUE' THEN DO
  83.  
  84.                SELECT
  85.  
  86.                   WHEN prog.trm_id = 3 THEN DO
  87.                      NewIconName = TR_GETATTRIBUTE(window,3,'TROB_String')
  88.                      CALL CheckNewIcon
  89.                   END
  90.  
  91.                   WHEN prog.trm_id = 5 THEN DO
  92.                      OldIconName = TR_GETATTRIBUTE(window,5,'TROB_String')
  93.                      CALL CheckOldIcon
  94.                   END
  95.  
  96.                   OTHERWISE NOP
  97.  
  98.                END
  99.  
  100.             END
  101.  
  102.             /* Button gadget selected */
  103.             IF prog.trm_class = 'TRMS_ACTION' THEN DO
  104.                IF prog.trm_id = 6 THEN CALL CopyNewIcon
  105.             END
  106.  
  107.             /* Dropbox selected */
  108.             IF prog.trm_class = 'TRMS_ICONDROPPED' THEN DO
  109.  
  110.                SELECT
  111.  
  112.                   WHEN prog.trm_id = 2 THEN DO
  113.                      DO i = 1 TO prog.trm_data.0
  114.                         NewIconName = prog.trm_data.i
  115.                         IF RIGHT(NewIconName, 1) = ':' THEN DO
  116.                            NewIconName = NewIconName'Disk'
  117.                         END
  118.                         NewIconName = NewIconName'.info'
  119.                         CALL CheckNewIcon
  120.                      END
  121.                   END
  122.  
  123.                   WHEN prog.trm_id = 4 THEN DO
  124.                      DO i = 1 TO prog.trm_data.0
  125.                         OldIconName = prog.trm_data.i
  126.                         IF RIGHT(OldIconName, 1) = ':' THEN DO
  127.                            OldIconName = OldIconName'Disk'
  128.                         END
  129.                         OldIconName = OldIconName'.info'
  130.                         CALL CheckOldIcon
  131.                      END
  132.                   END
  133.  
  134.                   OTHERWISE NOP
  135.  
  136.                END
  137.  
  138.             END
  139.  
  140.             /* Close window gadget selected */
  141.             IF prog.trm_class = 'TRMS_CLOSEWINDOW' THEN finish = 1
  142.  
  143.          END
  144.  
  145.       END
  146.  
  147.       /* Close window */
  148.       CALL TR_CLOSEPROJECT(window)
  149.  
  150.    END
  151.  
  152.    /* Close application */
  153.    CALL TR_DELETEAPP(launch)
  154.  
  155. END
  156.  
  157. EXIT
  158.  
  159.  
  160. CheckOldIcon:
  161.    IF ~EXISTS(OldIconName) THEN DO
  162.       OldIconName = ''
  163.       CALL TR_EASYREQUEST(launch,'Old Icon'||'0a'x||'Does not exist!','_Whoops!','TREZ_LockProject' C2D(window) 'TAG_END')
  164.    END
  165.    CALL TR_SETATTRIBUTE(window, 5,'TROB_String',OldIconName)
  166. RETURN
  167.  
  168.  
  169. CheckNewIcon:
  170.    IF ~EXISTS(NewIconName) THEN DO
  171.       NewIconName = ''
  172.       CALL TR_EASYREQUEST(launch,'New Icon'||'0a'x||'Does not exist!','_Doh!','TREZ_LockProject' C2D(window) 'TAG_END')
  173.    END
  174.    CALL TR_SETATTRIBUTE(window, 3,'TROB_String',NewIconName)
  175. RETURN
  176.  
  177.  
  178. Syntax:
  179. Error:
  180.    SAY 'Program Error! Closing down!'
  181.    IF WindowOpen  = 1 THEN CALL TR_CLOSEPROJECT(window)
  182.    IF Launched    = 1 THEN CALL TR_DELETEAPP(launch)
  183. EXIT
  184.  
  185.  
  186. CopyNewIcon:
  187.    IF NewIconName = '' THEN DO
  188.       CALL TR_EASYREQUEST(launch,'No New Icon'||'0a'x||'Supplied','_Pah!','TREZ_LockProject' C2D(window) 'TAG_END')
  189.       RETURN
  190.    END
  191.  
  192.    IF OldIconName = '' THEN DO
  193.       CALL TR_EASYREQUEST(launch,'No Old Icon'||'0a'x||'Supplied','_Uh-oh!','TREZ_LockProject' C2D(window) 'TAG_END')
  194.       RETURN
  195.    END
  196.  
  197.    ToDo = 'CopyNewIcon "'NewIconName'" "'OldIconName'"'
  198.  
  199.    ADDRESS COMMAND Todo
  200. RETURN
  201.